home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / SAVINGS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  3.1 KB  |  102 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '***************** SAVINGS/CHECKING BALANCE PROGRAM  ***********************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN                 SAVINGS OR PERSONAL CHECK RECONCILER                    OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN    This is a simple progam to provide a screem display and printout of  OPEN
  7. 24  'OPEN a savings or personal checking account. Sometimes the hand-held calcu-  OPEN
  8. 26  'OPEN lator just does not do the job.  Check numbers, account numbers, or a   OPEN
  9. 28  'OPEN payee/payor is not entered. Simply enter "W or D" for withdrawal and/or OPEN
  10. 30  'OPEN deposit.  Enter " END " for a final balance. If you wish a more compre- OPEN
  11. 32  'OPEN hensive printout showing payee/payor, check number and account number,  OPEN
  12. 34  'OPEN see BUSCHECK.BAS on this disk.  This program will "timeout" if printer  OPEN
  13. 35  'OPEN is not on-line.  To eliminate printer output, delete LPRINT lines.      OPEN
  14. 36  'OPEN    This program may be used in whole or in part without attribution or  OPEN
  15. 37  'OPEN license.      (c) G I N A C O  -- 1983                Ver 5.2/320       OPEN
  16. 50  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  17. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  18. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  19. 60  CLS:KEY OFF:FOR I=1 TO 10:KEY I,"":NEXT
  20. 100  SCREEN 0,0,0: WIDTH 80: CLEAR
  21. 110  KEY OFF
  22. 120  S1$ = CHR$(34)
  23. 130  LPRINT CHR$(27); CHR$(69)
  24. 140  CLS
  25. 160  LOCATE 5,15
  26. 170  PRINT "Q U I C K  SAVINGS ACCOUNT  R E C O N C I L E R"
  27. 180  LOCATE 6,15
  28. 190  PRINT STRING$(47,42)
  29. 200  A$ = ""
  30. 210  B$ = ""
  31. 220  C$ = ""
  32. 230  B! = 0
  33. 240  A! = 0
  34. 250  LOCATE 8,15
  35. 260  PRINT "A SAVINGS ACCOUNT RECONCILING ROUTINE."
  36. 270  LOCATE 10,15
  37. 280  PRINT "ENTER WITHDRAWAL OR DEPOSIT AS A POSITIVE NUMBER."
  38. 290  PRINT TAB( 15)"DO NOT USE <+> OR <-> SIGNS."
  39. 300  PRINT
  40. 310  PRINT TAB( 15)"IF YOU WANT A FINAL TOTAL, <ENTER> ";S1$;"END";S1$;" AT W/D QUERY."
  41. 320  PRINT
  42. 330  PRINT TAB( 15)"THE MAXIMUM NUMBER LENGTH IS $99,999.00."
  43. 340  GOSUB 780
  44. 350  U$ = "$###,###.##"
  45. 360  CLS
  46. 370  LOCATE 5,15
  47. 380  COLOR 7
  48. 390  INPUT "ENTER BALANCE: ";A!
  49. 400  LOCATE 5,40
  50. 410  PRINT USING U$;A!
  51. 420  LPRINT TAB( 10)"SIMPLE CHECK-ADDING PROGRAM FOR CHECKBOOKS"
  52. 430  LPRINT " "
  53. 440  LPRINT
  54. 450  LPRINT TAB( 40);"STARTING BALANCE: ";USING U$;A!
  55. 460  LPRINT
  56. 470  LPRINT
  57. 480  PRINT
  58. 490  PRINT TAB( 15)"W  OR  D:  ";
  59. 495  AN$=INKEY$:IF AN$="" THEN 495
  60. 496  WD = 0:IF (AN$="W" OR AN$="w") THEN WD=1:GOTO 520
  61. 497  IF (AN$="D" OR AN$="d") THEN WD=2:GOTO 520
  62. 500  IF ( LEFT$(AN$,1) = "E" OR LEFT$(AN$,1) = "e") THEN 690
  63. 510  SOUND 400,4:GOTO 495
  64. 520  PRINT
  65. 530  PRINT TAB( 15)"$$$.$$ AMOUNT:  ";
  66. 540  LINE INPUT B$
  67. 550  B! = VAL(B$)
  68. 560  IF B$ = "" THEN B! = 0
  69. 570  IF WD=2 THEN B! = B! - 2 * B!
  70. 580  A! = A! - B!
  71. 590  PRINT
  72. 600  PRINT TAB( 60)"BAL: ";
  73. 610  PRINT USING U$;A!
  74. 620  PRINT
  75. 630  LPRINT TAB( 5)"W  OR  D ";AN$;
  76. 640  LPRINT TAB( 55) USING U$;B!;
  77. 650  LPRINT TAB( 70) USING U$;A!
  78. 660  LPRINT " "
  79. 670  PRINT
  80. 680  GOTO 480
  81. 690  LPRINT
  82. 700  LPRINT TAB( 50)"FINAL BAL: ";
  83. 710  LPRINT USING U$;A!
  84. 720  CLS
  85. 730  LOCATE 15,25
  86. 740  PRINT "FINAL BAL: ";
  87. 750  PRINT USING U$;A!
  88. 760  GOSUB 780
  89. 770  GOTO 140
  90. 780  LOCATE 22,15
  91. 790  PRINT "PRESS ";
  92. 800  COLOR 0,7
  93. 810  PRINT "  ENTER  ";
  94. 820  COLOR 7,0
  95. 830  PRINT " TO CONTINUE PROGRAM...";
  96. 840  PRINT " ";
  97. 850  INPUT X!
  98. 860  RETURN
  99. 64900  END
  100. 65000  '************************* SAVE ROUTINE ********************************
  101. 65100  SAVE"B:SAVINGS.BAS"
  102.